home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / asm / prhex.asm < prev    next >
Encoding:
Assembly Source File  |  1985-03-20  |  943 b   |  45 lines
  1.  
  2. ;------WRITE_HEX------------------------------
  3. ; Displays 4 hexadecimal numbers contained in AX
  4. ; Entry:
  5. ;   AX ==> 4 Hex numbers
  6. ; Exit:
  7. ;   All regs but AX restored
  8. ;----------------------------------------------
  9.  
  10.  
  11. Write_HEX    PROC
  12.          push   bx                ;Save regs
  13.          push   cx
  14.          push   dx
  15.          mov    bx, ax
  16.          mov    cx, 12
  17.          shr    ax, cl
  18.          call   pr_one_hex
  19.          mov    ax, bx
  20.          mov    cx, 8
  21.          shr    ax, cl
  22.          call   pr_one_hex
  23.          mov    ax, bx
  24.          mov    cx, 4
  25.          shr    ax, cl
  26.          call   pr_one_hex
  27.          mov    ax, bx
  28.          call   pr_one_hex
  29.          pop    dx
  30.          pop    cx
  31.          pop    bx
  32.          ret
  33.  
  34. pr_one_hex:  and    ax, 000Fh            ;Mask LSD
  35.          cmp    ax,9
  36.          ja     wa20
  37.          add    ax, '0'
  38.          jmp    wa30
  39. wa20:         add    ax, 'A'-10
  40. wa30:         mov    dx, ax
  41.          @doscall  02h            ;Print the char
  42.          ret
  43.  
  44. Write_HEX    ENDP
  45.